100 IFPEEK(44)<>192THENGOSUB60000:GOTO760
110 POKE56,207:POKE55,252:CLR:DV=PEEK(186):IFDV<8THENDV=8
120 POKE53280,0:POKE53281,0:POKE53246,PEEK(45):POKE43247,PEEK(46)
130 DIMP$(12),F$(12):TT$="[195] - 6 4   [204] [201] [211] [212] [211]"
140 PRINT"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
150 FORI=1TO3:PRINT"[158]                                        ";:NEXT
160 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:GOSUB560
170 POKE211,0:POKE214,22:SYS58732
180 PRINT"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
190 PRINT"[159]                                        ";
200 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
210 POKE2023,PEEK(2022):POKE56295,PEEK(56294):GOSUB560
220 PRINT"[158]"SPC(20-LEN(TT$)/2)TT$
230 POKE211,10:POKE214,23:SYS58732:PRINT"[159][195][210][211][210]/[210][197][212][213][210][206] [212]O [211]ELECT
240 [153]"":[129]I[178]1[164]17
250 [153]"CONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[130]
260 [153]"":[129]I[178]1[164]14
270 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[130]
280 [153]"":[129]I[178]1[164]14
290 [153]"OPEN                               ":[130]
300 P$(1)[178]" (null)IST (null)F LEN-64 (null)ECTORS        "
310 P$(2)[178]" (null)IST (null)F (null)(null)(null) (null)OUTINES        "
320 P$(3)[178]" (null)NEMONIC (null)IST (null)F (null)OUTINES   "
330 P$(4)[178]" (null)NE-PEEKYTE (null)EMORY (null)AP         "
340 P$(5)[178]" (null)WO-PEEKYTE ((null)ORD) (null)EMORY (null)AP  "
350 P$(6)[178]" (null)ETURN (null)O (null)(null)ATNSTR$(null)(null)ATN(null)          "
360 P$(7)[178]" (null)ESET LENOMPUTER              "
370 F$(1)[178]"VECTORS"
380 F$(2)[178]"ROM ROUTINES
390 F$(3)="MNEMONIC
400 F$(4)[178]"ONE BYTE MAP
410 F$(5)="TWO BYTE MAP
420 F$(6)[178]"HELLO CONNECT"
430 F$(12)[178]""
440 [153]"":[129]I[178]1[164]7:[153]"OPEN"P$(I):[130]:IT[178]1:OT[178]1:[141]530
450 [161]A$:[139]A$[179][177]""[175]A$[179][177]"ON"[175]A$[179][177][199](13)[175]A$[179][177]"Q"[167]450
460 [139]A$[178]"Q"[167]580
470 OT[178]IT:[139]A$[178]""[167]IT[178]IT[170]1:[139]IT[177]7[167]IT[178]1
480 [139]A$[178]"ON"[167]IT[178]IT[171]1:[139]IT[179]1[167]IT[178]7
490 [139]A$[179][177][199](13)[167][141]530:[137]450
500 [139]F$(IT)[178]""[167][158]64738
510 [139]IT[178]7[167]580
520 [137]640
530 [151]214,OT[170]6:[151]211,6:[158]58732:[153]"OPEN"P$(OT)
540 [151]214,IT[170]6:[151]211,6:[158]58732:[146]53265,128,128:[153]"WAITPRINT"P$(IT):[142]
550 [144]
560 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[142]
570 [160]15:[159]15,8,15,"S:LIST MENU":[160]15:[148]"LIST MENU",8:[144]
580 A$[178]"HELLO CONNECT":[129]I[178]8[164]13:[160]2:[159]2,I,2:[160]2:[139]ST[167]600
590 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]610
600 [130]:[153]"LOAD":[151]186,8:[128]
610 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD"
620 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:P(null)46,8:CLR:L(null)"Q$A$Q$","I
630 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
640 A$[178]F$(IT):[129]I[178]8[164]13:[160]2:[159]2,I,2:[160]2:[139]ST[167]680
650 [160]15:[151]787,119
660 [159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,E,E$:[160]15:[139]E[178]63[167]720
670 [143] OPEN15,I,15,"R"+A$+"="+A$:INPUT#15,E,E$:CLOSE15:IFE=63THEN50030
680 [130]:[151]214,23:[151]211,0:[158]58732:
690 A$[178]"LENOULDN'T FIND "[170]F$(IT)[170]"!"
700 [153]"OPEN                                        ON";[166]20[171][195](A$)[173]2)A$;
710 [151]198,0:[146]198,15:[161]A$:[138]
720 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD"
730 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:CLR:L(null)"Q$A$Q$","I
740 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
750 [144]
760 A$[178]"B.64 LISTS II":[129]I[178]8[164]13:[160]2:[159]2,I,2:[160]2:[139]ST[167]780
770 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]790
780 [130]:[153]"STOP":[151]186,8:[128]
790 Q$[178][199](34):[151]646,[194](53281)
800 [153]"P(null)49152,0:P(null)44,192:P(null)43,1:P(null)56,207:P(null)55,252:CLR:L(null)"Q$A$Q$","I
810 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"LEN - 6 4   (null) RIGHT$ (null) (null) (null)"
60040 Z$(2)[178]"BY LENLINTON (null)'(null)EILL
60050 Z$(4)="(C) 1997 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT:FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN